﻿Imports CustomTshirtFinal

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub btnIngresar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click
        Try
            Dim negocio As New UsuarioNegocio
            Dim modelo = negocio.logear(Me.txtCorreo.Text, Me.txtPassword.Text)
            Dim url = "~/Home.aspx"

            Session.Add("USUARIO_ACTUAL", modelo)

            Response.Redirect(url, False)
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

End Class